home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / MENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-09-14  |  2.0 KB  |  44 lines
  1. 10  CLEAR ,36000:KEY OFF:SCREEN 0,0,0:CLS:WIDTH 80:ON ERROR GOTO 520
  2. 20  GOSUB 500
  3. 30  LA$="KEY":FOR I=1 TO 37:LA$=LA$+"THEN":NEXT
  4. 40  LA$=LA$+"FN"+"FN":FOR I=1 TO 37:LA$=LA$+"THEN":NEXT:LA$=LA$+"CLOSE"
  5. 50  LB$="SCREEN":FOR I=1 TO 37:LB$=LB$+"THEN":NEXT
  6. 60  LB$=LB$+"STEPSTEP":FOR I=1 TO 37:LB$=LB$+"THEN":NEXT:LB$=LB$+"LOAD"
  7. 70   CLS:DEF SEG:POKE 106,0
  8. 80   COLOR 15,0:LOCATE ,,0
  9. 90   FOR I=1 TO 3 STEP 2:FOR J=20 TO 62:LOCATE I,J:PRINT"SOUND":NEXT J,I
  10. 100   LOCATE 1,19:PRINT"VARPTR":LOCATE 1,63:PRINT"COLOR":LOCATE 3,63:PRINT"'":LOCATE 3,19:PRINT"CLS"
  11. 110   LOCATE 2,19:PRINT"CALL"SPC(43)"CALL"
  12. 120   COLOR 0,7
  13. 130  LOCATE 2,29:PRINT" F R I E N D L Y W A R E ":COLOR 3,0
  14. 140  LOCATE 5,24:PRINT"Programs Available On This Diskette"
  15. 150  LOCATE 8,5:COLOR 0,7:PRINT" A ";:COLOR 3,0:PRINT" Wildcatter"TAB(31);:COLOR 0,7:PRINT" E ";:COLOR 3,0:PRINT" Dominoes   "TAB(57);:COLOR 0,7:PRINT" I ";:COLOR 3,0:PRINT" You Draw It       "
  16. 160  LOCATE 11,5:COLOR 0,7:PRINT" B ";:COLOR 3,0:PRINT" Othello"TAB(31);:COLOR 0,7:PRINT" F ";:COLOR 3,0:PRINT" PC Golf  "TAB(57);:COLOR 0,7:PRINT" J ";:COLOR 3,0:PRINT" Towers Of Atlantis"
  17. 170  LOCATE 14,5:COLOR 0,7:PRINT" C ";:COLOR 3,0:PRINT" Peg Leap "TAB(31);:COLOR 0,7:PRINT" G ";:COLOR 3,0:PRINT" Head Coach"TAB(57);:COLOR 0,7:PRINT" K ";:COLOR 3,0:PRINT" Personal Biorhythms"
  18. 180  LOCATE 17,5:COLOR 0,7:PRINT" D ";:COLOR 3,0:PRINT" Blackjack"TAB(31);:COLOR 0,7:PRINT" H ";:COLOR 3,0:PRINT" Match        "TAB(57);:COLOR 0,7:PRINT" L ";:COLOR 3,0:PRINT" Sports Predicting"
  19. 190  LOCATE 20,14:COLOR 15,0:PRINT"*****";:COLOR 3,0:PRINT" Strike Key Corresponding To Program Desired ";:COLOR 15,0:PRINT"*****":COLOR 3,0
  20. 200  LOCATE 21,2,0:PRINT LA$
  21. 210  PRINT" OPEN"TAB(7);:COLOR 0,7:PRINT"  AVAILABLE ON DISKETTE ONE  ";:COLOR 3,0:PRINT TAB(40)"CALLCALL"TAB(45);:COLOR 0,7:PRINT"  AVAILABLE ON DISKETTE THREE  ";:COLOR 3,0:PRINT TAB(79)"OPEN"
  22. 220  PRINT" OPEN"TAB(8)"1. Introduction To Computers"TAB(40)"CALLCALL"TAB(49)"1. Home & Analytical"TAB(79)"OPEN"
  23. 230  PRINT" OPEN"TAB(8)"2. Games & Entertainment"TAB(40)"CALLCALL"TAB(49)"2. Business Simulation"TAB(79)"OPEN"TAB(80);
  24. 240  LOCATE 25,2,0:PRINT LB$;
  25. 250  POKE 106,0
  26. 260  R$=INKEY$:IF R$="" THEN 260
  27. 270  IF R$="A" OR R$="a" THEN RUN"WILDCAT"
  28. 280  IF R$="B" OR R$="b" THEN RUN"OTHELLO"
  29. 290  IF R$="C" OR R$="c" THEN RUN"PEGLEAP"
  30. 300  IF R$="D" OR R$="d" THEN RUN"21"
  31. 310  IF R$="E" OR R$="e" THEN RUN"DOMINOES"
  32. 320  IF R$="F" OR R$="f" THEN RUN"GOLF"
  33. 330  IF R$="G" OR R$="g" THEN RUN"FOOTBALL"
  34. 340  IF R$="H" OR R$="h" THEN RUN"MATCH"
  35. 350  IF R$="I" OR R$="i" THEN RUN"DRAW"
  36. 360  IF R$="J" OR R$="j" THEN RUN"TOWERS"
  37. 370  IF R$="K" OR R$="k" THEN RUN"BIO"
  38. 380  IF R$="L" OR R$="l" THEN RUN"STATS"
  39. 390  GOTO 260
  40. 500  FOR A=1 TO 10:ON KEY(A) GOSUB 510:KEY(A) ON:NEXT
  41. 510  RETURN
  42. 520  IF ERR=53 THEN RUN"menu
  43. 530  ON ERROR GOTO 0
  44.